(menu_bar_item): Skip menu-bar equiv keys data

to get just the keymap.

diff --git a/src/keyboard.c b/src/keyboard.c
index c4d490206762104f7f2c4c636d0ad1c28e3ae195..e01e7e17f93da4cf13c43af46327867b5c09be2d 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -5223,6 +5223,10 @@ menu_bar_item (key, item_string, def)
   Lisp_Object enabled;
   int i;
 
+  /* Skip menu-bar equiv keys data.  */
+  if (CONSP (def) && CONSP (XCONS (def)->car))
+    def = XCONS (def)->cdr;
+
   if (EQ (def, Qundefined))
     {
       /* If a map has an explicit `undefined' as definition,